home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 February / 64er_Magazin_86-02_1986_Markt__Technik_de.d64 / kreiszahl pi (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  110b  |  9 lines
  1. 10 fori=0to12
  2. 20 w=-(u=0)
  3. 30 o=2*sqr(3)*w+o
  4. 40 u=3*w+u
  5. 50 o=2*o*u/(o+u)
  6. 60 u=sqr(o*u)
  7. 70 print6*2^i,u;o
  8. 80 next
  9.